home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / okul2000 / DEMO2000.INF < prev    next >
Encoding:
Text File  |  1998-06-05  |  3.8 KB  |  128 lines
  1. DefineVariables
  2. Text      [I]  
  3.   Text      [W]  
  4.   Text      [WS]
  5.   TextArray [taBackUpName]
  6.   TextArray [taInUseArray]
  7.   Text      [tInuseLine]  
  8.   Number    [nCounter]    
  9.   Number    [nInUse]      
  10.   Text      [tInUseFileName]
  11.   Text [tNoIconsMessage]
  12.   text [tInstallationComplete]
  13.   Text [tCustomDialogText1] :=
  14.   Text [tFileInUseText5] :=
  15.   Text [tFileInUseText4] :=
  16.   Text [tFileInUseText3] :=
  17.   Text [tFileInUseText2] :=
  18.   Text [tFileInUseText1] :=
  19.   Text [tMenuHelpText1] :=
  20.   Text [tInstallIconsText1] :=
  21.   Text [tInstallIconsText2] :=
  22.   Text [tMenuText3] :=
  23.   Text [tMenuText2] :=
  24.   Text [tMenuText1] :=
  25.   Text [tOK_ButtonText] :=
  26.   Text [tCancel_ButtonText] :=
  27.   Text [tHelp_ButtonText] :=
  28.   Text [tSkipIconInstallText] :=
  29. Number [Anamenu1] := 1
  30. Number [Secim1] := 1
  31. Number [Deg1] := 1
  32. EndDefineVariables
  33. Procedure SetupDisplay
  34. SetDefaultBitmap Off
  35.   ShowWindow Maximized
  36.   SetBackgroundColor 0 0 255 0 0 255 TopLeftToBottomRight
  37.   
  38.   
  39.   SetShadowAttrTo BlackOnLightGray
  40.   SetScreenAttrTo BlackOnLightGray
  41.   SetPopupAttrTo  BlackOnLightGray
  42.   SetAttentionAttrTo BlackOnLightGray
  43.   SetTopLineTo Ensis Bilgisayar E≡itim Yaz²lmlar²
  44. EndProcedure
  45. Procedure Install_Files
  46. UnQueAllFiles
  47.  
  48. If WindowsVersion>3.3 
  49.     QueFileGroup  1
  50.     DetermineInstallationDrive 
  51.     ;;QueSize ShowDrivesWithSpace RequireFixed
  52.     DetermineInstallationDirectory InstallationDrive:\Demo2000
  53.     If FreeSpaceonDrive InstallationDrive <  14500000 
  54.         DialogBox  200 100 UseHeader "Yⁿkleme Hatas² Olu■tu" Returns [Anamenu1] BlackOnLightGray ModalFrame
  55.             Ctext @xy(5,10)  190 20  "Okul2000 program²n²n yⁿklenebilmesi iτin"
  56.             Ctext @xy(5,20)  190 20  "Diskinizde yeterli yer yok. En az 14,500,000 Byte "
  57.             Ctext @xy(5,30)  190 20  " yer aτt²ktan sonra tekrar deneyiniz." 
  58.             PushButton @xy(80,80) 40 14 "Tamam" 1
  59.         EndDialogBox
  60.         Popup "Yⁿkleme Ba■ar²s²z"
  61.     Else
  62.         GetQuedFiles
  63.           Do Icon_Yukle
  64.           PopUp "Yⁿkleme i■lemi tamamland²"
  65.     Endif
  66. Else
  67.         PopUp "Okul 2000 program²  Windows 95 ve Windows NT alt²nda τal²■²r"
  68. Endif
  69. EndProcedure
  70. Procedure Modify_Files
  71.  
  72. EndProcedure
  73. Procedure STR_Info
  74. ;; Global Strings for DialogBox
  75. [tOK_ButtonText] := Tamam
  76. [tCancel_ButtonText] := ▌ptal
  77. [tHelp_ButtonText] := Help
  78.  
  79. ;; Icon installation messages
  80. [tNoIconsMessage] := No icons will be installed.  Press <OK> to continue.
  81. [tInstallationComplete] := Yⁿkleme ▌■lemi Tamamland²
  82. [tCustomDialogText1] := Select a group to receive Icons
  83. [tInstallIconsText1] := BlankString
  84. [tInstallIconsText2] := install icon(s) into a different group
  85. [tSkipIconInstallText] := Yⁿklenecek ▌kon bulunamad²
  86.  
  87. ;; Installation Menu Help
  88. [tMenuHelpText1] := Choose Okul2000  to install this product.  Choose Hardware summary to see system settings.  Choose Exit to leave this installation.  Press <OK> to return to main menu.
  89.  
  90. ;; Installation Menu Options
  91. ;;[tMenuText1] := 
  92. ;;[tMenuText2] := 
  93. ;;[tMenuText3] :=
  94.  
  95. ;; Main window top line
  96. SetTopLineTo  Ensis Bilgisayar Yaz²l²m
  97. EndProcedure
  98. Procedure Icon_Yukle
  99. ProgramManagerDDE
  100.       CreateGroup("Okul2000 Professional",[WindowsDirectory]\Okul2000.GRP)
  101.       AddItem([installationdirectory]\okul2000.exe,Okul2000 Demo,[installationdirectory]\okul.ico,0)
  102.       AddItem([installationdirectory]\4d.hlp,Okul2000 Yard²m,,)
  103. EndProgramManagerDDE
  104.  
  105. EndProcedure
  106.  
  107. Do SetupDisplay
  108. Do STR_Info
  109.  
  110. :Start
  111. DialogBox  200 100 UseHeader "Ensis Bilgisayar E≡itim Yaz²l²mlar²" Returns [Anamenu1] BlackOnLightGray ModalFrame
  112. Ctext @xy(5,10)  190 20  "Okul2000 Demo yⁿkleme program²na ho■geldiniz."
  113. Ctext @xy(5,20)  190 20  "Yⁿkle yi seτerseniz Bilgisayar²n²z²n ÷zelliklerine g÷re"
  114. Ctext @xy(5,30)  190 20  " gerekli programlar Diskinize yⁿklenecektir." 
  115.  
  116. PushButton @xy(30,80) 40 14 "Yⁿkle" 1
  117. PushButton @xy(130,80) 40 14 "╟²k²■" 2
  118. EndDialogBox
  119.   
  120. InCase [Anamenu1] Is
  121. =1: Do Install_Files
  122.     [Anamenu1] := 2
  123.  
  124. =2:
  125.  
  126.     SoLong
  127. EndInCase
  128.